Filename: /text/sbasic/shared/03010304.xhp

QBColor Function [Runtime]
QBColor 関数 [実行時](hd_id3149670.1)

Returns the RGB color code of the color passed as a color value through an older MS-DOS based programming system.
従来の MS-DOS ベースのプログラミングシステムの使用するカラー値について、その RGB カラーコードを返します。(par_id3150359.2)

Syntax:
構文:(hd_id3154140.3)

QBColor (ColorNumber As Integer)
QBColor (ColorNumber As Integer)(par_id3151042.4)

Return value:
戻り値:(hd_id3145172.5)

Long
ロング整数(par_id3154685.6)

Parameter:
パラメータ:(hd_id3156560.7)

ColorNumber: Any integer expression that specifies the color value of the color passed from an older MS-DOS based programming system.
ColorNumber:従来の MS-DOS ベースのプログラミングシステムの使用するカラー値を示す整数表式。(par_id3161832.8)

ColorNumber can be assigned the following values:
ColorNumber には下記の値を指定できます。(par_id3147318.9)

0 : Black
0 : 黒(par_id3152576.10)

1 : Blue
1 : 青(par_id3146975.11)

2 : Green
2 : 緑(par_id3151116.12)

3 : Cyan
3 : シアン(par_id3155412.13)

4 : Red
4 : 赤(par_id3155306.14)

5 : Magenta
5 : マゼンタ(par_id3153364.15)

6 : Yellow
6 : イエロー(par_id3146119.16)

7 : White
7 : 白(par_id3154730.17)

8 : Gray
8 : グレー(par_id3153877.18)

9 : Light Blue
9 : 明るい青(par_id3147124.19)

10 : Light Green
10 : 明るい緑(par_id3145646.20)

11 : Light Cyan
11 : 明るいシアン(par_id3149958.21)

12 : Light Red
12 : 明るい赤(par_id3154943.22)

13 : Light Magenta
13 : 明るいマゼンタ(par_id3150715.23)

14 : Light Yellow
14 : 明るい黄(par_id3146970.24)

15 : Bright White
15 : 明るい白(par_id3150750.25)

This function is used only to convert from older MS-DOS based BASIC applications that use the above color codes. The function returns a long integer value indicating the color to be used in the Office IDE.
この関数は、従来の MS-DOS ベースの BASIC アプリケーションで使われる上記のカラー値を変換する場合にのみ使用します。関数の戻り値は、Office IDE の使用するカラー値を示すロング整数が返されます。(par_id3146914.26)

Example:
例:(hd_id3148406.27)

Sub ExampleQBColor
Sub ExampleQBColor(par_id3145642.28)

Dim iColor As Integer
Dim iColor As Integer(par_id3154256.29)

Dim sText As String
Dim sText As String(par_id3147340.30)

iColor = 7
iColor = 7(par_id3155962.31)

sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
sText = "RGB= " & Red(QBColor( iColor) ) & ":"& Blue(QBColor( iColor) ) & ":"& Green(QBColor( iColor) )(par_id3145230.32)

MsgBox stext,0,"Color " & iColor
MsgBox stext,0,"Color " & iColor(par_id3149566.33)

End Sub
End Sub(par_id3154705.34)